% V20210224 - 9.5 GW_ADD_INPUTBOX

INCLUDE "GW.bas"

% Create a page.
p = GW_NEW_PAGE()

% Prepare title bar string.
Title$ = GW_ADD_BAR_TITLE$("Inputbox Example")

% Add title to page.
GW_ADD_TITLEBAR(p,Title$)

% Add text.
GW_ADD_TEXT(p, ~
 "This is an example of the INPUTBOX control.")

% Add Inputbox.
GW_USE_THEME_CUSTO_ONCE("rows=3")
ctl = GW_ADD_INPUTBOX(p, ~
 "This is the input box:", "Type here.")

% Now show the page.
GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process
 % user actions.

 % Example feedback.
 POPUP r$

% End when BACK key is pressed.
UNTIL r$ = "BACK"

PRINT GW_GET_VALUE$(ctl)

END "End of Inputbox example."